home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 116
/
Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64
/
scrambled word
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
118 lines
6 rem author and source unknown
100 rem ***************************
110 rem * *
120 rem * scrambled word *
130 rem * *
140 rem * kid-proofed by qj *
160 rem * *
170 rem ***************************
180 :
190 :
200 print"[147]"tab(8)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
210 printtab( 8)"a scrambled word game"
220 dim b$(20),a(20)
230 restore
240 a$=""
250 b$=""
260 c$=""
270 for z = 1 to 20
280 a(z) = 0
290 next z
300 a =int(30*rnd(ti)+1)
310 for b=1 to a
320 read a$
330 ifa$="end" then restore: b=b-1
340 next b
350 c=len(a$)
360 for e=1 toc
370 d=int(c*rnd(ti)+1)
380 if a(d)=1 then 370
390 b$(e)=mid$(a$,d,1)
400 b$=b$+b$(e)
410 a(d)=1
420 next e
430 if a$=b$ then 360
440 print"unscramble: ";:gosub2000:print b$:ww=0
445 print""
450 print" was meinst du ? ";
460 gosub1060
470 print:print
480 c$=in$
490 ifa$=c$ then 560
500 goto 530
510 gosub3100:ww=ww+1:ifww<3thengosub3000 :goto445
515 print" richtig ist : "a$:print
520 goto 580
530 w=w+1:goto510
560 print"richtig!!":print
570 r=r+1
580 print"score: richtig"r" falsch"w:
585 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
590 print"noch ein wort? (j/n)[146]";
600 getqq$:ifqq$<>"j"andqq$<>"n"then600
610 ifqq$="j" then print"[147]":goto240
650 print"[147]deine antworten:"
660 t=w+r
670 x=int(r/t*100+.5)
680 y=int(w/t*100+.5)
690 print
700 printx"% richtig "y" % falsch"
710 print
720 end
740 data hobby,blume,fenster,maschine
750 data buch,schatten,sonnig,lesen
760 data tier,giraffe,zebra,katze
770 data schule,flasche,tasse,diskette
780 data regen,schnee,frieren,schwitzen
790 data magisch,wolkig,nebel,gewitter
800 data schuhe,hose,hemd,socken
810 data freund,dichter,agent,kamel
820 data ziege,sender,einladung,maus
830 data wein,bier,droge,kaffee
840 data chor,tabak,stahl,laster
850 data heuchler,heute,himmel,haushund
860 data genetik,geniessen,zucker,brot
870 data grenze,humor,lustig,traurig
880 data sinnlos,schmerz,freude,wagnis
890 data empfindlich,sensibel,empfang,digital
900 data linear,division,doktor,dokument
910 data blinddarm,blasen,wehen,blond
920 data cartridge,quaken,blenden,arbeit
930 data nummer,nussbaum,obhut,oberarm
940 data obskur,gespenst,oktober,januar
950 data anfang,pistazie,rahmen,rassel
960 data rasen,rasse,ranzen,rasieren
970 data album,schaden,sauerei,sauber
980 data iltis,schaf,grizzly,sinnbild
990 data asket,silber,gold,aluminium
1000 data sieger,trikot,trippeln,tube
1010 data futter,nickel,giftig,trottel,regenbogen,trumpf
1020 data nerven,trost,hymne,faktor
1030 data stuhl,tisch,bett,kissen,wahl
1040 data esel,affe,verweis,verwandte,verzehr,infusion
1050 data end,end
1060 rem
1070 rem cursor input routine...pet users club vol 1,#6...qj...9/1/79
1080 cr$=chr$(13)
1090 rem set fl=1 for old style pets.
1100 in$=" ":zt=ti:zc=2:zd$=chr$(20)
1110 getz$:ifz$<>""then1140
1120 ifzt<=tithenprintmid$(" [166]",zc,1);"[157]";:zc=3-zc:zt=ti+15
1130 goto1110
1140 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" [157]";:goto1180
1150 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
1160 ifzl>254then1110
1170 in$=in$+z$:printz$;zd$;z$;
1180 ifz=13thenin$=mid$(in$,2):printcr$;:return
1190 ifz=20andzl>1thenin$=left$(in$,zl-1):print"[157]";: goto1110
1200 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1100
1210 goto1110
2000 print"[145][176]";:forx=1tolen(b$):print"[192]";:next:print"[174]"
2010 printspc(15) "[221]";:forx=1tolen(b$):print" ";:next:print"[221]"
2020 printspc(15) "[173]";:forx=1tolen(b$):print"[192]";:next:print"[189]"
2030 printtab(16)"[145][145]";
2040 return
3000 forxx=1to500:next
3010 print""spc(19)" ":return
3100 printspc(19)"sorry!!";: forxx=1to500:next:print"[157][157][157][157][157][157][157][157] ":return